COMMENT ⊗   VALID 00004 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	.TC←FALSE << TRUE if Table of Contents wanted >>
C00005 00003	.BEGIN "FRONT"
C00009 00004	.BEGIN "YUM"
C00011 ENDMK
C⊗;
.TC←FALSE; << TRUE if Table of Contents wanted >>
.if XCRIBL THEN START "XGP"
.  PAGE FRAME 54 HIGH 42 WIDE;
.  AREA TEXT LINES 4 TO 54;
.  ODDLEFTBORDER←400; EVENLEFTBORDER←4650;
.  !XGPCOMMANDS←"/TMAR=80";

.  require "basker.pub[sub,sys]" source_file;
.  FONT 4 "NGR40"; FONT 5 "BEESIX"; FONT 6 "SGN114";
.  FONT 7 "NGR25"; FONT 8 "BDJ25";
.  END "XGP"
.ELSE START "TTY"
.  PAGE FRAME 52 HIGH 69 WIDE;
.  AREA TEXT LINES 4 TO 52;
.  END "TTY";
.title area heading lines 1 to 2;

.macro tecol(linmin)  ⊂
.if lines<linmin then start "newpage"
.  SKIP TO COLUMN 1;
→%3Page
.  end "newpage";
.  ⊃

.COMMENT Call this macro once at the end of the document;
.MACRO BACK ⊂
.TURN ON "→\∂{"
.EVERY HEADING(,%3TABLE OF CONTENTS,)
.FILL NOJUST CRBREAK
.PREFACE 0
.PORTION CONTENTS
.SKIP TO COLUMN 1
→%3Page
.RECEIVE
.		⊃

.TURN ON "α%→←{"
.PORTION FRONT; place text
.BEGIN "FRONT"
.CENTER
.group SKIP 8;
STANFORD ARTIFICIAL
INTELLIGENCE LABORATORY

presents:



%6YUM
YUM

%2A guide to Bay Area restaurants
that tells it like it is.

%3{MONTH} {YEAR}
.END "FRONT"
.BEGIN "PREF"
.  SKIP TO COLUMN 1; FILL ADJUST; TURN ON "#";
←%3Preface

%1Yumyum is a guide to restaurants of the San Francisco Bay area, with
gastonomic evaluations from our readers.  Each remark carries the initials of
the evaluator and the approximate date.  Many of the remarks conflict
with one another.  Rather than attempting to form a "concensus", we
let them tell it their way.  Of course, different people are looking
for different things and restaurants change with the passage of time
and chefs.  With a little experience, you can begin to evaluate the
evaluators and draw more reliable conclusions from the opinions given
here. 

We are dependent upon you to provide timely updates and information on
interesting new restaurants.  There is space following each item below
in which you can enter remarks, to faciliate feedback to us.  Please
try to express your views concisely and accurately.

This guide is divided into geographical regions.  Restaurants within
each region are listed by type of cuisine.  It is produced in both a
printed version, using the PUB document compiler, and as a computer file:
YUMYUM [P,DOC] @SU-AI, which is accessible via the ARPA Network.

→Patte Wood & Les Earnest, %2Editors

.skip;
←%3Acknowledgement

%1The idea of a computer file on restaurants originated locally
with Tom Binford in 1972.  In August 1973, Kasee Menke expanded the
coverage of the file and published the first Yumyum, with Les Earnest
doing the layout.  Revisions have been published sporadically since then.

.SKIP 2; CENTER;
%3Credit Card Codes:

.NARROW 12;NOFILL
%2AX=American Express,
BA=BankAmericard,
CB=Carte Blanche,
DC=Diners Club,
MC=Master Charge.
.  END "PREF"

.if TC then BEGIN "CONTENTS" INSERT CONTENTS END "CONTENTS";
.BEGIN "YUM"
.PORTION BODY
.TURN ON "∂"; fill; adjust;
.CUIS←NULL;
.PREFACE 0;

.MACRO SEC(PLACE) ⊂
.ODD HEADING(,,%3{PAGE}); EVEN HEADING(%3{PAGE},,);
.NEXT PAGE; CENTER
%5PLACE
.IF TC THEN SEND CONTENTS ⊂ tecol(6); SKIP;
%5PLACE
. ⊃
.ODD HEADING(%4{CUIS},,%3{PAGE}); EVEN HEADING(%3{PAGE},,"%5PLACE");
.⊃

.MACRO TIT(HEADER,SUBHEAD);  ⊂
.SKIP; nofill; GROUP;
.IF LENGTH("HEADER") THEN BEGIN "cuisine"
.	CUIS←"HEADER";
.	IF TC THEN SEND CONTENTS ⊂
.tecol(5);
∂+2%3HEADER→%1{PAGE!}
.	⊃;
%4HEADER:
.	END "cuisine";
.    ELSE SKIP 1;
.IF LENGTH("SUBHEAD") THEN BEGIN "subtype"
.	IF TC THEN SEND CONTENTS ⊂
.tecol(4);
∂+4%3SUBHEAD→%1{PAGE!}
.	⊃
∂+2%4SUBHEAD
.	END "subtype";
.⊃

.AT "⊗" DATA "≡" ⊂
.DAT←"DATA";
.NAME←SCAN(DAT,"/","","IS");
.ADDRESS←SCAN(DAT,"/","","IS");
.PHONE←SCAN(DAT,"/","","IS");
.HRS←SCAN(DAT,"/","","IS");
.IF TC THEN SEND CONTENTS ⊂
.TECOL(2);
∂+6{NAME}→{PAGE!}
. ⊃
.SELECT 3; GROUP; FILL; ADJUST; COMPACT; CRBREAK;
{NAME}→%1{PHONE}
{ADDRESS}
%7Hours:  {HRS}
.CRSPACE;
%8{DAT}
.once nofill; select 3;
Remarks:
.APART; skip 3;
.⊃

.<<
.COUNT PAGE; INDENT 0,0,0;
.require "YUM" source_file;
.>>
.END "YUM"

.IF TC THEN BEGIN back END;